home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t3.d64 / clock.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  1KB  |  33 lines
  1. 10 GOSUB 9000
  2. 20 PRINT"[147]**TIMES WAITS FOR NO MAN  **
  3. 30 [153]"CLOCK INSTRUCTIONS:"
  4. 40 [153]"SYS 832 : TURN ON DISPLAY
  5. 50 PRINT"SYS 994:  TURN OFF DISPLAY
  6. 60 [153]"POKE 982,N: CHANGE COLOUR
  7. 70 END
  8. 9000 CH=0:FORI=832TO1008
  9. 9010 READA:POKEI,A:CH=CH+A:NEXT
  10. 9020 IFCH-15605THENPRINT"WHOA...DATA ERROR":STOP
  11. 9030 INPUT"[147]IS IT AM OR PM";A$:INPUT"AND THE HOUR";H
  12. 9040 PRINT"ENTER THE NEXT MINUTE;":PRINT"PRESS 'RETURN' TO START CLOCK:
  13. 9050 [139]H[177]12[167]P$[178]"P":H[178]H[171]12:[137]9050
  14. 9060 [139]H[177]9[167]H[178]H[170]6
  15. 9070 [139][200](A$,1)[178]"P"[167]H[178]H[170]128
  16. 9080 C[178]56328:[151]C[170]3,H:[151]C[170]1,0
  17. 9090 [133]M:M[178]M[170][181](M[173]10)[172]6
  18. 9100 [151]C[170]2,M:[151]C,0:[158]832:[153]"IF NOT OK, PRESS ANY KEY
  19. 9110 FORI=1TO1000:IFPEEK(198)THENPOKE198,0:SYS994:GOTO9030
  20. 9120 NEXT:RETURN
  21. 9200 DATA120,173,20,3,162,89,141,224,3,142,20,3,173,21,3
  22. 9210 DATA162,3,141,225,3,142,21,3,88,96,173,11,220,170,41
  23. 9220 DATA15,24,105,48,141,67,4,138,16,4,162,16,16,2,162,1,142
  24. 9230 DATA77,4,162,32,41,16,240,2,162,49,142,66,4,173,10,220
  25. 9240 DATA170,41,15,105,48,141,70,4,138,74,74,74,74,24,105,48
  26. 9250 DATA141,69,4,173,9,220,170,41,15,105,48,141,73,4,138,74
  27. 9260 DATA74,74,74,24,105,48,141,72,4,173,8,220,105,48,141,75
  28. 9270 DATA4,169,32,141,65,4,141,76,4,141,79,4,162,15,157,24
  29. 9280 DATA4,202,208,250,169,58,141,68,4,141,71,4,169,46,141,74
  30. 9290 DATA4,169,13,141,78,4,169,1,162,13,157,65,216,202,208,250,76,0,0
  31. 9300 DATA120,173,224,3,141,20,3,173,225,3,141,21,3,88,96
  32. 9310 REM BY IAN ADAM 1983
  33.